unit Class_EchoSQL;

interface
uses
  Classes,SysUtils;
type
  TEchoSQL=class(TObject)
  public
    class function EchoSQL_SellRecd_StrsDB:string;
  end;

implementation

{ TEchoSQL }

class function TEchoSQL.EchoSQL_SellRecd_StrsDB: string;
begin
  Result:='SELECT A.MEMB_NAME,B.PROD_NAME,C.SELL_DATE,D.* FROM TBL_MEMB A,TBL_PROD B,TBL_SELL C,TBL_SELL_RECD D WHERE A.MEMB_IDEX=D.MEMB_IDEX AND B.PROD_IDEX=D.PROD_IDEX AND C.SELL_IDEX=D.SELL_IDEX AND C.UNIT_LINK=D.UNIT_LINK'
         +'    ORDER BY SELL_DATE';
end;

end.
